home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 3: Developer Tools / Linux Cubed Series 3 - Developer Tools.iso / devel / lang / lisp / gcl-1.000 / gcl-1 / gcl-1.0 / lsp / listlib.data < prev    next >
Encoding:
Text File  |  1994-05-10  |  1.2 KB  |  8 lines
  1.        
  2. #(#! 
  3. (lisp::in-package (lisp::quote user::lisp))#! 
  4. (lisp::export (lisp::quote (lisp::union lisp::nunion lisp::intersection lisp::nintersection lisp::set-difference lisp::nset-difference lisp::set-exclusive-or lisp::nset-exclusive-or lisp::subsetp)))#! 
  5. (lisp::in-package (lisp::quote lisp::system))
  6. #("UNION not passed a list" "NUNION not passed a list" "INTERSECTION not passed a list" "NINTERSECTION not passed a list" "SET-DIFFERENCE not passed a list" "NSET-DIFFERENCE not passed a list" "NSET-EXCLUSIVE-OR not passed a list" "SUBSETP not passed a list" system::member1 :key :test-not :test lisp::set-difference lisp::nset-difference (system::%init . #((system::warn-version 0) (system::mfvfun (lisp::quote lisp::union) 0 16386) (system::mfvfun (lisp::quote lisp::nunion) 1 16386) (system::mfvfun (lisp::quote lisp::intersection) 2 16386) (system::mfvfun (lisp::quote lisp::nintersection) 3 16386) (system::mfvfun (lisp::quote lisp::set-difference) 4 16386) (system::mfvfun (lisp::quote lisp::nset-difference) 5 16386) (system::mfvfun-key (lisp::quote lisp::set-exclusive-or) 6 16386 7) (system::mfvfun (lisp::quote lisp::nset-exclusive-or) 8 16386) (system::mfvfun-key (lisp::quote lisp::subsetp) 9 16386 10))))
  7. )
  8.